home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / EDITORS / CADET5.ZIP;1 / CADET.LSP < prev    next >
Encoding:
Text File  |  1993-10-27  |  1.7 KB  |  35 lines
  1. ;;;;;;;;;;;  CADET.LSP v5.0  Copyright 1990,93 Steve Waskow  ;;;;;;;;;;;
  2. ;
  3. ; Do not edit this file.  This file is maintained by Cadet's INSTALL program.
  4. ; There are no user-configurable variables in this file.
  5. ;
  6. (SETQ CADETL "C:\\CADET\\")
  7. (if (getenv "CADET")
  8.   (if (not (member (substr (setq CADETD (getenv "CADET")) (strlen CADETD) 1)
  9.   '(":" "\\" "/"))) (setq CADETD (strcat CADETD "\\")))
  10.   (setq CADETD CADETL)
  11. )
  12. (defun WtsLsp (fn CADET@)
  13.   (prompt "\nLoading...") (load (strcat CADETL fn))
  14.   (prompt "\10\10\10\10\10\10ed.   ") (eval (list (read fn) CADET@))
  15. )
  16. (defun c:C_C  () (if WtsC (WtsC "C") (WtsLsp "WtsC" "C")))
  17. (defun c:C_N  () (if WtsC (WtsC "N") (WtsLsp "WtsC" "N")))
  18. (defun c:C_I  () (if WtsI (WtsI "I") (WtsLsp "WtsI" "I")))
  19. (defun c:C_E  () (if WtsE (WtsE "E") (WtsLsp "WtsE" "E")))
  20. (defun c:C_ET () (if WtsE (WtsE "T") (WtsLsp "WtsE" "T")))
  21. (defun c:C_EN () (if WtsE (WtsE "O") (WtsLsp "WtsE" "O")))
  22. (defun c:C_EA () (if WtsE (WtsE "B") (WtsLsp "WtsE" "B")))
  23. (defun c:C_EG () (if WtsE (WtsE "G") (WtsLsp "WtsE" "G")))
  24. (defun c:C_S  () (if WtsP (WtsP "S") (WtsLsp "WtsP" "S")))
  25. (defun c:C_P  () (if WtsP (WtsP "P") (WtsLsp "WtsP" "P")))
  26. (defun c:C_M  () (if WtsP (WtsP "M") (WtsLsp "WtsP" "M")))
  27. (defun c:C_J  () (if WtsJ (WtsJ "J") (WtsLsp "WtsJ" "J")))
  28. (defun c:C_A  () (if WtsJ (WtsJ "A") (WtsLsp "WtsJ" "A")))
  29. (defun c:C_X  () (if WtsM (WtsM "X") (WtsLsp "WtsM" "X")))
  30. (defun c:C_O  () (if WtsM (WtsM "V") (WtsLsp "WtsM" "V")))
  31. (defun c:C_H  () (if WtsM (WtsM "H") (WtsLsp "WtsM" "H")))
  32. (defun c:Cadet () (if WtsM (WtsM "_") (WtsLsp "WtsM" "_")))
  33. (load (strcat (if (findfile (strcat CADETD "CADETLSP.CFG")) CADETD CADETL) "CADETLSP.CFG"))
  34. (princ " CADET ")
  35.